﻿
Imports FastReport
Public Class frmReportDesign
    Public strsql As String
    Dim _mysql As New ClsSQLhelper
    Public Report_ID As Integer
    Dim Rpt_Form As String
#Region "Function"
    Sub Load_Report_Config()
        Try
            strsql = "SELECT report_id,report_name,report_formname,report_filename,report_group,report_sql from report_template where report_id = " & Report_ID
            Dim DT_Report As New DataTable
            DT_Report = _mysql.GetMYSQLDataTable(strsql, "report_list")
            Rpt_Form = DT_Report.Rows(0).Item("report_filename").ToString


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub



#End Region

    Private Sub frmReportDesign_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
    End Sub
End Class